home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir27 / grphca22.zip / EXAMPLES.ZIP / ENROLL.PLT < prev    next >
Text File  |  1993-02-03  |  2KB  |  60 lines
  1.  echo on
  2.  pap 11 8.5
  3.  subplot area 1.75 1.25 9.75 6.75
  4.  map x 1935 1990 y 0 120
  5.  divisions x 11,5 y 6,2
  6. # extra tic on
  7.  format x -1 y -1
  8.  axes
  9.  data
  10.  1937,44 1938,53 1939,59 1940,44 1941,41 1943,16
  11.  1944,8 1945,16 1946,118 1947,107 1948,90 1949,59
  12.  1950,52 1951,50 1952,64 1953,52 1954,57 1955,73
  13.  1956,81 1957,83 1958,69 1959,34 1960,25 1961,19
  14.  1962,14 1963,13 1964,10 1965,7 1966,11 1967,11
  15.  1968,19 1969,16 1970,13 1971,10 1972,17 1973,15
  16.  1974,25 1975,60 1976,84 1977,72 1978,65 1979,66
  17.  1980,73 1981,96 1982,108 1983,82 1984,57 1985,51
  18.  1986,51
  19.  end
  20.  pen color cyan
  21.  symbol circle
  22.  plot data add conn
  23.  char size 0.15 font 3
  24.  xlabel 'Year'
  25.  ylabel 'Enrollments'
  26.  legend center at 5.75 7.75
  27.  'Undergraduate Enrollments in Petroleum Engineering'
  28.  'University of Kansas'
  29.  '1937-1985'
  30.  end
  31.  mask off
  32.  char size 0.12 font 1
  33.  pen style 2
  34.  line from 2.62 3.25 to 2.62 5.75
  35.  line from 3.21 3.25 to 3.21 5.75
  36.  char size 0.1
  37.  legend offset 2.0 center at 2.92 5.75
  38.  'WW'
  39.  'II'
  40.  end
  41.  mask off
  42.  pen style 1
  43.  arrow stop at 2.62 5.75 angle 180 length 0.15
  44.  arrow stop at 3.21 5.75 length 0.15
  45.  pen style 2
  46.  line from 4.38 3.79 to 4.38 5.75
  47.  line from 7.0 1.88 to 7.0 5.75
  48.  pen style 1
  49.  arrow stop at 4.38 5.75 angle 180 length 0.2
  50.  arrow stop at 7.0 5.75 length 0.2
  51.  char size 0.12
  52.  legend center at 5.7 6
  53.  'From 1953 Thru 1971'
  54.  'Enrollments do not'
  55.  'Include Freshmen'
  56.  end
  57.  mask off
  58.  label angle 90 at 7.25 2.55 'OPEC Embargo'
  59.  label angle 90 at 8.15 4.75 'Iran Crisis'
  60.  label angle 90 at 9.05 4 'OPEC Cartel Disagreement'